home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / online / awebgetmail / rexx / trimmail.rexx < prev   
OS/2 REXX Batch file  |  1996-10-18  |  2KB  |  72 lines
  1. /* Trim Getmail Aweb v.1        */
  2.  
  3. /*trace results*/
  4. options results
  5.  
  6. /*MODIFY THESE TO YOUR E_MAIL HEADER BEGINNING & ENDING WORDS*/
  7.  
  8. headerwordbegin = 'Received:'
  9. headerwordend = 'X-UIDL:'
  10.  
  11. /*Do change anything beyond here.*/
  12.  
  13. open(1,'t:GetMail.tempfile',r)
  14. open(3,'t:Getmail1.temp',w)
  15. /*seek(1,0,END)
  16. writeln(1,"")
  17. seek(1,0,BEGIN)*/
  18.  a=0
  19.  
  20. Do until EOF(1)
  21.  
  22. do until word(line,1) = headerwordend
  23.         line = readln(1)    /* current line of text */
  24.         dppos = index(line, ':')
  25.           if (dppos ~= 0) then do
  26.             if dppos > 13 | dppos == 0 then iterate
  27.              keyword = left(line, dppos-1)
  28.         /* Avoid syntax problems with '-' in 'Message-ID' */
  29.                 keyword = translate(keyword, 'x_', 'X-')
  30.               interpret  header.keyword "=line"
  31.  end
  32. end
  33.  
  34.  
  35. a=a+1
  36. open(message.a,'t:message.'a,w)
  37. call writeln(message.a,"<HTML><HEAD><TITLE>E-Mail Messages</TITLE></HEAD><BODY><H1>Message "a"</H1>")
  38. call writeln(message.a,'</title>')
  39. call writeln(message.a,'</head>')
  40. b=0
  41. if header.from ~= 'HEADER.FROM' then
  42.  Do until pos('@',word(header.from,b)) ~= 0 | b>8
  43.  b=b+1
  44.  if pos('@',word(header.from,b)) ~= 0 then
  45. call writeln(message.a,"<li>From:<a href=mailto:"compress(word(header.from,b),'",<,>')">"compress(word(header.from,b),'",<,>')"</a><br>")
  46.  end
  47. if b > 8 then do
  48.  call writeln(message.a,header.from)
  49.  end
  50. if header.to ~= 'HEADER.TO' then
  51.  call writeln(message.a,"<li>"header.to)"</a><br>"
  52. if header.subject ~= 'HEADER.SUBJECT' then
  53. call writeln(message.a,"<li>"header.subject)
  54. if header.date ~= 'HEADER.DATE' then
  55. call writeln(message.a,"<li>"header.date)
  56. /*if header.message_id ~= 'HEADER.MESSAGE_ID' then
  57. call writeln(message.a,header.message_id)*/
  58. call writeln(3,header.from)
  59. call writeln(message.a,"<HR><PRE>")
  60. call writeln(message.a,'<H2><strong>Message:</strong></h2>')
  61.  
  62. drop b
  63. Do until word(line,1) = headerwordbegin
  64.        line = readln(1)
  65.        if word(line,1) ~= headerwordbegin then do
  66.        if word(line,2) = 'tomeeee@soho.ios.com'| word(line,1) ='Status:' then iterate
  67.         call writeln(message.a,line)
  68.        if eof(1) then exit
  69.   end
  70.  end
  71. end
  72.